home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / oil tycoon (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  144 lines
  1. 10 REM:** COMPUTE GAZETTE **
  2. 20 REM:** OIL TYCOON **
  3. 100 PRINT"[147][154]":IFPEEK(14336)=2ANDPEEK(14805)=24THEN195
  4. 105 POKE53280,6:POKE53281,6:POKE53270,8
  5. 110 PRINTTAB(14)"INSTRUCTIONS"SPC(28)"[163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"JOYSTICK:"
  6. 115 PRINT" RIGHT AND LEFT = MOVE RIG"
  7. 120 PRINT" DOWN = DRILL":PRINT" UP = RETRACT PIPE"
  8. 125 PRINT"  WHEN YOU PUSH THE FIRE BUTTON AND THE
  9. 130 [153]"PIPE IS DOWN IN OIL OR IN SPACE THE"
  10. 135 [153]"PUMP IS TRIGGERED.  IF THE PIPE IS DOWN"
  11. 140 [153]"IN DIRT, DYNAMITE IS DROPPED.
  12. 145 PRINT"WATCH OUT FOR SHALE AND GAS IN EMPTY","SPACES AND DEVILS IN OIL.
  13. 150 [153]"PLEASE OPENWAITCONT FOR FURTHER INSTRUCTIONS."
  14. 155 [151]52,56:[151]56,56:[156]:AD[178]14336
  15. 160 [129]A[178]AD[164]AD[170]207:[135]B:[151]A,B:[130]:[151]56334,[194](56334)[175]254:[151]1,51
  16. 165 [129]A[178]AD[170]256[164]AD[170]471:[151]A,[194](38912[170]A):[130]:[151]1,55
  17. 170 [151]56334,[194](56334)[176]1
  18. 175 [153]"ON  PRESS ANY KEY WHEN READY TO BEGIN. "
  19. 180 [139][194](197)[178]64[175][194](653)[178]0[175][194](56320)[178]127[167]180
  20. 185 :
  21. 190 :
  22. 195 [153]"LOAD":[151]53280,6:[151]54296,15:[134]A%(40):W[178]1184:JS[178]56320
  23. 200 [151]53282,6:[151]53283,0:[151]53270,24:[151]54291,0:[151]54292,240
  24. 205 [129]I[178]0[164]2:[151]54276[170]I[172]7,8:[130]:[151]53281,3
  25. 210 [151]54284,0:[151]54285,240:[151]54277,0:[151]54278,240:[139]Z[177]B%(T)[167]B%(T)[178]Z
  26. 215 [151]53272,21:[153]"LOAD",T,"  $"[202]([196](Z[172]100),2)".00"
  27. 220 [153][163]8)" LEVEL      HIGH SCORE"
  28. 225 [129]A[178]1[164]8:[153],A,"  $"[202]([196](B%(A)[172]100),2)".00":[153]:[130]
  29. 230 [153]" DIFFICULTY LEVEL? 12345678":T[178]1
  30. 235 [151]56194[170]T,0:T1[178]T:T[178]T[170]([194](JS)[175]4)[173]4[171]([194](JS)[175]8)[173]8:T[178](7[175]T[171]1)[170]1
  31. 240 [139]T[179][177]T1[167][151]56194[170]T1,6
  32. 245 [151]56194[170]T,1:L[178]3:[139]T[173]2[178][181](T[173]2)[167]L[178]2
  33. 250 S[178]20:[139]T[178]3[176]T[178]4[176]T[177]6[167]S[178]30
  34. 255 N[178]24:[139]T[177]4[167]N[178]25:L[178]L[170]1
  35. 260 [161]A$:[139]([194](56320)[175]16)[178]16[175]A$[179][177][199](13)[167]235
  36. 265 [151]53272,31:[153]"LOAD":[151]53280,9:[151]53281,1:M[178]4:Z[178]0:K[178]0:[141]590
  37. 270 [151]W[170]X,14:X[178]20:P[178]20:Y[178]L:R[178]1:[141]705:[141]645:[151]198,0
  38. 275 :
  39. 280 :
  40. 285 [143]:**MAIN LOOP OF PROGRAM**
  41. 290 A[178][194](JS):[139](A[175]4)[178]0[175]R[178]1[167][151]W[170]X,14:X[178]X[170](X[177]0)
  42. 295 [139](A[175]8)[178]0[175]R[178]1[167][151]W[170]X,14:X[178]X[171](X[179]39)
  43. 300 [151]W[170]X,2:[139](A[175]2)[178]0[175]P[177]0[167]340
  44. 305 [139](A[175]1)[178]0[175]R[177]1[167]400
  45. 310 [139](A[175]16)[178]0[167]435
  46. 315 [161]A$:[139]R[178]1[175]A$[178]" "[167]375
  47. 320 [137]290
  48. 325 :
  49. 330 :
  50. 335 [143]:**DRILLING AND GAS EXPLOSIONS**
  51. 340 A[178]R[172]40[170]W[170]X:C[178][194](A):P[178]P[171]1:[141]675
  52. 345 [139]C[178]N[176]C[178]3[176]A[177]2023[167][129]A[178]1[164]3:[141]730:[130]:[137]290
  53. 350 [139][187](1)[177].06[176]C[179][177]14[167][129]B[178]1[164]3:[151]A,C[170]B:[141]730:[130]:R[178]R[170]1:[137]290
  54. 355 [129]B[178]1[164]2:[151]A,C[170]B:[141]730:[130]:[141]735:B[178]0
  55. 360 R[178]R[171]1:[151]54296,4:[139]R[179]1[167][151]54296,15:[151]W[170]X,23:[141]715:[137]375
  56. 365 [151]54273,B:[151]54276,129:A[178]R[172]40[170]W[170]X:C[178][194](A):PK[178][194](A[170]54272):[151]A,C[170]1
  57. 370 [151]A[170]54272,15:[129]D[178]0[164]200:[130]:[151]A,C[171]3:[151]A[170]54272,PK:B[178]B[170]10:[137]360
  58. 375 [151]W[170]X,14:X[178]20:M[178]M[171]1:P[178]20:Y[178]L:R[178]1:[141]705:[139]M[179]0[167]205
  59. 380 [141]645:[137]290
  60. 385 :
  61. 390 :
  62. 395 [143]:**DRILLING UP**
  63. 400 R[178]R[171]1:B[178]R[172]40[170]W[170]X:C[178][194](B):[129]A[178]1[164]3:[151]B,C[171]A:[141]730:[130]
  64. 405 P[178]P[170]1:[141]675:[139]R[179][177]1[167]290
  65. 410 [129]A[178]W[170]80[164]2023:[139][194](A)[178]9[167]290
  66. 415 [130]:M[178]M[170]1:[129]C[178]1[164]3:[141]705:[130]:[141]590:[141]645:[137]290
  67. 420 :
  68. 425 :
  69. 430 [143]:**DYNAMITE, GUSHERS, DEVILS**
  70. 435 J[178]Z:Q[178]R[171]1:[129]A[178]0[164]21:A%(A)[178]0:[130]:B[178]Q[172]40[170]W[170]X:A[178][194](B):[139]A[179][177]7[167]480
  71. 440 A[178]W[170]X:B[178]40:[139]Y[179]1[167]290
  72. 445 A[178]A[170]40:C[178][194](A):[151]A,C[170]1:[139]C[178]14[176]C[178]9[167][151]A,C[170]4
  73. 450 [151]54273,B:[151]54276,33:[129]D[178]0[164]200:[130]:D[178][194](A[170]40)
  74. 455 [139]D[179][177]4[175]D[179][177]N[175]D[179][177]3[175]A[179]1984[167]B[178]B[171]2:[151]A,C:[137]445
  75. 460 [151]54276,8:[141]735:[151]A[170]54312,15
  76. 465 [139]C[179][177]14[175]C[179][177]9[167]R[178]R[171]1
  77. 470 Y[178]Y[171]1:[141]665:[137]290
  78. 475 :
  79. 480 A%(X)[178]1:[151]54273,40:[151]54276,129:[151]54296,4:V[178]W[170]X[171]40
  80. 485 [139]A[178]12[167][151]B,17:Z[178]Z[170]Q:[151]V,0
  81. 490 E[178]0:F[178]38:D[178]1:G[178]1:I[178]1:[141]530:[151]V,1:E[178]39:F[178]1:D[178][171]1:G[178]D:I[178]D:[141]530
  82. 495 E[178]0:F[178]39:D[178]1:G[178][171]40:I[178]0:[141]530:[151]V,0:[139]C[179][177]6[167]515
  83. 500 Z[178]J:[151]B,3:[151]B[170]54272,2:[151]V,14:[129]A[178]0[164]40:[151]54280,88:[151]54283,17
  84. 505 [151]53283,14:[151]54296,6:[129]B[178]1[164]5:[130]
  85. 510 [151]54296,0:[151]53283,0:[129]B[178]1[164]5:[130]B,A:[151]54283,0:B[178]0:[137]360
  86. 515 [139]H[167]Q[178]Q[171]1:[137]490
  87. 520 [151]V,14:[151]54276,8:[151]54296,15:[151]54283,2:[141]705:[141]645:[137]290
  88. 525 :
  89. 530 [139]C[178]6[167][142]
  90. 535 H[178]0:[129]A[178]E[164]F[169]D:[139]A%(A)[178]0[167]570
  91. 540 B[178]Q[172]40[170]W[170]A[170]G:C[178][194](B)
  92. 545 [139]C[178]9[176]C[178]12[167][151]B,C[170]5:H[178]1:Z[178]Z[170]Q[170][182](I)[171]1:A%(A[170]I)[178]1:[137]565
  93. 550 [139]C[178]14[176]C[178]17[167]A%(A[170]I)[178]1:H[178]1:[137]570
  94. 555 [139]C[178]3[167]C[178]6:[142]
  95. 560 A%(A[170]I)[178]0:[137]570
  96. 565 [139][187](1)[179].02[175]C[179][177]12[167]C[178]6:[142]
  97. 570 [130]:[142]
  98. 575 :
  99. 580 :
  100. 585 [143]:**INITIALIZE THE DISPLAY**
  101. 590 [153]"LIST";:[129]A[178]1[164]99:[153]"DDDDDDDD";:[130]:[153]"DDDDDDD";
  102. 595 [151]2023,4:[151]56295,15:B[178]400:C[178]1264:[129]A[178]1[164]2:[129]D[178]1[164]40
  103. 600 E[178][181]([187](0)[172]B[173]2)[172]2[170]C:[139][194](E)[178]9[176][194](E[170]1)[178]9[167]600
  104. 605 [151]E,9:[151]E[170]1,9:[130]:B[178]360:C[178]1665:[130]:[129]A[178]1[164]S
  105. 610 B[178][181]([187](1)[172]340)[172]2[170]1264:C[178][194](B):[139]C[178]9[176]C[178]N[167]610
  106. 615 [151]B,N:[151]B[170]54272,10:[130]:[129]A[178]0[164]199:[151]55296[170]A,0:[130]:[129]A[178]0[164]39
  107. 620 [151]55376[170]A,3:[151]1104[170]A,20:[130]
  108. 625 [129]A[178]0[164]3:[151]55337[170]A,2:[130]:[142]
  109. 630 :
  110. 635 :
  111. 640 [143]:**UPDATE SCREEN INFORMATION**
  112. 645 [153]""[166]23)"$"[202]([196](Z[172]100),2)".00"
  113. 650 A[178][181](Z[173]1000):[139]A[178]K[170]1[167]K[178]K[170]1:[141]705:[141]705:M[178]M[170]1
  114. 655 [139]M[179]1[167][151]1024,14:[151]55296,14:[137]665
  115. 660 [129]A[178]1024[164]1023[170]M:[151]A,2:[151]A[170]54272,0:[130]:[151]A,14:[151]A[170]54272,0
  116. 665 [139]Y[178]0[167][151]1031,14:[151]55303,0:[137]675
  117. 670 [129]A[178]1031[164]1030[170]Y:[151]A,19:[151]A[170]54272,0:[130]:[151]A,14:[151]A[170]54272,0
  118. 675 [139]P[179]1[167][151]1064,14:[151]55336,0:[142]
  119. 680 [129]B[178]1064[164]1063[170]P:[151]B,17:[151]B[170]54272,0:[130]:[151]B,14:[151]B[170]54272,0
  120. 685 [142]
  121. 690 :
  122. 695 :
  123. 700 [143]:**MUSIC AND OTHER SUBROUTINES**
  124. 705 [151]54276,17:[129]A[178]15[164]0[169][171]1:[151]54296,A:[151]54273,86:[129]B[178]1[164]25:[130]B,A
  125. 710 [151]54276,8:[151]54296,15:[142]
  126. 715 [151]54276,8:[151]54276,129:[151]54273,91:[129]D[178]15[164]0[169][171]1:[151]54296,D
  127. 720 [151]53281,1:[151]53280,2:[129]E[178]1[164]70:[130]:[151]53280,6:[130]
  128. 725 [151]54276,8:[151]54296,15:[151]53280,9:[142]
  129. 730 [151]54287,20:[151]54290,8:[151]54290,129:[151]54290,128:[142]
  130. 735 [151]A,21:[151]A[170]40,22:[141]715:[151]A,14:[151]A[170]40,14:[142]
  131. 740 :
  132. 745 :
  133. 750 [143]:**CHARACTER DATA**
  134. 755 [131]2,138,164,73,74,52,20,8,64,81,37,146,82,44,40,16,24,24,36
  135. 760 [131]60,90,102,231,153,20,42,42,20,62,73,20,20,136,34,136,34,136,34,136,34
  136. 765 [131]148,22,148,34,136,34,136,34,148,22,148,22,148,34,136,34,148,22,148
  137. 770 [131]22,148,22,148,22,136,62,188,62,188,62,188,22,170,170,170,170,170
  138. 775 [131]170,170,170,150,150,150,170,170,170,170,170,150,150,150,150,150,170,170
  139. 780 [131]170,150,150,150,150,150,150,150,150,150,190,190,190,190,190,190,150,0,0
  140. 785 [131]0,0,0,0,0,0,20,20,20,0,0,0,0,0,20,20,20,20,20,0,0,0,20,20,20,20,20,20
  141. 790 [131]20,20,20,60,60,60,60,60,60,20,0,60,60,60,60,60,60,0,0,0,0,255,255,0,0,0
  142. 795 [131]218,118,181,153,110,93,197,65,65,82,150,85,121,181,150,173,2,106,129,20
  143. 800 [131]64,162,129,2,169,128,141,19,145,169,0,133,136,34,136,34,136,34,136,34
  144.